home *** CD-ROM | disk | FTP | other *** search
- on mouseDown
- mouseVpos = the mouseV
- spriteTop = the top of sprite the clickOn
- spriteBottom = the bottom of sprite the clickOn
- repeat with z = 1 to the maxinteger
- mouseVpos = the mouseV
- spriteTop = the top of sprite the clickOn
- spriteBottom = the bottom of sprite the clickOn
- if (mouseVpos < (spriteTop + 8)) and (the soundLevel <> 7) then
- puppetSound("high beep")
- volumeUp()
- else
- if mouseVpos > (spriteBottom - 10) then
- puppetSound("high beep")
- muteVolume()
- else
- if mouseVpos > (spriteBottom - 22) then
- puppetSound("high beep")
- volumeDown()
- end if
- end if
- end if
- checkTime = the ticks + 15
- repeat with a = 1 to the maxinteger
- if the stillDown then
- put the ticks & ":" & checkTime
- if the ticks > checkTime then
- checkTime = 0
- exit repeat
- end if
- next repeat
- end if
- abort()
- end repeat
- end repeat
- end
-